home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / paint boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  46 lines
  1. 10 poke53281,0:poke53280,0:print"[147][158]";
  2. 30 ss$="                                        "
  3. 40 fori=1to08:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  4. 50 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
  5. 60 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  6. 70 poke2023,peek(2022):poke56295,peek(56294)
  7. 80 print"[154][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  8. 90 print"[159]                                        ";
  9. 100 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  10. 110 fori=217to242:pokei,peek(i)or128:next
  11. 120 poke214,5:print:fori=1to10:printtab(4)"[221][155]                              [146][221]"
  12. 130 next:poke214,6:poke211,4:sys58732
  13. 140 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  14. 150 printtab(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  15. 160 poke214,16:poke211,4:sys58732
  16. 170 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  17. 180 printtab(5)"[145][145][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":poke214,8:print
  18. 190 a$="[208][160][193][160][201][160][206][160][212][160][160][160][194][160][217][160][160][160][206][160][213][160][205] [194][160][197] [210]":gosub250:x=peek(214)
  19. 195 print"[159]"spc(20-len(a$)/2)a$
  20. 200 poke214,x:print"[145]";:a$="by [202]on [205]attson":gosub250
  21. 210 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#73":gosub250
  22. 220 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub250
  23. 230 a$="([195]) 1990 [211]oftdisk":gosub250
  24. 240 goto260
  25. 250 printspc(20-len(a$)/2)"[155]"a$:return
  26. 260 gosub440
  27. 270 poke214,20:poke211,4:sys58732
  28. 280 print"[159]1. [210][213][206][160][208][193][201][206][212][160][194][217][160][206][213][205][194][197][210]
  29. 290 [153]"2. (NULL)(NULL)atnstr$/(NULL)(NULL)right$(NULL)(NULL) (NULL)atn(NULL)(NULL)atn(NULL)
  30. 300 print"3. [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]
  31. 310 [153]""
  32. 320 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]320
  33. 330 c[178]1024[170](19[170][197](a$))[172]40[170]5:[129]i[178]c[164]c[170]30:[151]i,[194](i)[176]128:[130]
  34. 340 [145][197](a$)[137]350,360,370
  35. 350 f$[178]"paint by number":[137]380
  36. 360 f$[178]"paint manual":[137]380
  37. 370 f$[178]"hello connect"
  38. 380 [153]"";:[129]i[178]1[164]18:[153]ss$;:[130]
  39. 390 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  40. 400 [159]15,8,15,"r0:"[170]f$[170]"="[170]f$:[132]15,er:[160]15
  41. 410 [139]er[179][177]63[167][153]"":[128]
  42. 420 [153]"stopload"[199](34)f$[199](34)",8"
  43. 430 [151]631,13:[151]632,82:[151]633,213:[151]634,13:[151]198,4:[128]
  44. 440 [151]214,19:[158]58732:[129]i[178]1[164]5
  45. 450 [153]"open                                      ":[130]:[153]"":[142]
  46.